home *** CD-ROM | disk | FTP | other *** search
/ The 640 MEG Shareware Studio 2 / The 640 Meg Shareware Studio CD-ROM Volume II (Data Express)(1993).ISO / pascal / tch_tpas.zip / PROG15B.PAS < prev    next >
Pascal/Delphi Source File  |  1986-04-05  |  768b  |  38 lines
  1. PROGRAM PROG15B;
  2. {$U+    Copyright (C), 1985 by Lyle Faurot.  All rights reserved.
  3.  
  4.     New Topics:  Clearing the screen
  5.                  Accepting user input
  6.  
  7. }
  8. TYPE
  9.   Name_Type = String[12];
  10.  
  11. VAR
  12.   F_Name    : String[12];
  13.  
  14. PROCEDURE Print_Entry_Screen;
  15.  
  16. BEGIN
  17.   ClrScr;
  18.   WriteLn('           PERSONAL DATA ENTRY SCREEN');
  19.   WriteLn;
  20.   WriteLn('First Name:');
  21.   WriteLn;
  22.   WriteLn(' Last Name:');
  23.   WriteLn;
  24.   WriteLn('  Phone No:');
  25. END;
  26.  
  27. PROCEDURE Get_First_Name(VAR First_Name : Name_Type);
  28.  
  29. BEGIN
  30.   GotoXY(13,3);
  31.   Read(First_Name);
  32. END;
  33.  
  34. BEGIN
  35.   Print_Entry_Screen;
  36.   Get_First_Name(F_Name);
  37. END.
  38.